how to open and read a text file in perl